! file name=setls.h
      real(NBF),pointer,dimension(:,:) :: dprob
      real(NBF),pointer,dimension(:,:,:) :: diagf,bdl,bdd,bdu,psphi
!
      common/b/dprob
      common/c/diagf,bdl,bdd,bdu,psphi
